home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
games
/
zmud455.zip
/
ZMUD.EXE
/
0
/
RCDATA
/
TWALKDIALOG
/
TWALKDIALOG.txt
Wrap
Text File
|
1997-04-13
|
47KB
|
1,452 lines
object WalkDialog: TWalkDialog
Left = 341
Top = 120
HelpContext = 130
BorderStyle = bsDialog
Caption = 'Speed Walking'
ClientHeight = 353
ClientWidth = 564
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ShowHint = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object WalkTab: TTabbedNotebook
Left = 0
Top = 24
Width = 561
Height = 272
TabsPerRow = 6
TabFont.Color = clBtnText
TabFont.Height = -11
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 0
OnChange = WalkTabChange
object TTabPage
Left = 4
Top = 24
Caption = 'Actions'
object Image1: TImage
Left = 184
Top = 8
Width = 32
Height = 32
AutoSize = True
end
object Label4: TLabel
Left = 224
Top = 80
Width = 95
Height = 13
Caption = 'Current Path ahead:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object RecordLabel: TLabel
Left = 352
Top = 120
Width = 75
Height = 13
Caption = 'RECORDING'
Color = clBtnFace
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 224
Top = 120
Width = 97
Height = 13
Caption = 'Current Path behind:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SlowLabel: TLabel
Left = 349
Top = 80
Width = 78
Height = 13
Caption = 'Slow Walking'
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Visible = False
end
object Label6: TLabel
Left = 224
Top = 58
Width = 54
Height = 13
Caption = 'Path name:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 8
Top = 8
Width = 78
Height = 13
Caption = 'Stored Paths:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 24
Width = 148
Height = 13
Caption = 'Click on a path in this list to edit'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 38
Width = 116
Height = 13
Caption = 'Double-click to fast walk'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel2: TBevel
Left = 168
Top = 8
Width = 17
Height = 232
Shape = bsLeftLine
end
object Inh: TLabel
Left = 224
Top = 168
Width = 188
Height = 13
Caption = 'Inherited from parent settings file'
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label19: TLabel
Left = 224
Top = 16
Width = 219
Height = 13
Caption = 'Paths store directions to locations on the MUD'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object CurrentPath: TEdit
Left = 224
Top = 96
Width = 209
Height = 21
Hint =
'|Current directions stored in path or ahead of you in record buf' +
'fer'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnChange = CurrentPathChange
end
object FastBtn: TBitBtn
Left = 440
Top = 54
Width = 105
Height = 27
Hint = '|Execute the current Path Ahead'
Caption = '&Fast walk'
Default = True
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 3
OnClick = FastBtnClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333003333303333333333333333333333333633333603
3333333333333333333333363333633333333333333333333333333366363333
0003333333333333333333333EC6333333333333333333333333333C366C3333
3333333333333333333333E3C6C6333000333333333333333333333336663333
33333333333333333333333333E333000333333333333333333333333EE03333
3333333333333333333333333E00333333333333333333333333333330003333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object SlowBtn: TBitBtn
Left = 440
Top = 86
Width = 105
Height = 27
Hint = '|Execute the current Path Ahead in Slow Walk mode'
Caption = 'Slow &walk'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 6
ParentFont = False
TabOrder = 5
OnClick = SlowBtnClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333003330333333333333333333333333333633330333
33333333333333333333333363363333333333333333333333333333363E3333
333333333333333333333333366C333333333333333333333333333C36C63333
3333333333333333333333E3C6C6333333333333333333333333333336663333
33333333333333333333333333E333333333333333333333333333333EE03333
3333333333333333333333333E00333333333333333333333333333330003333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object StepBtn: TBitBtn
Left = 440
Top = 150
Width = 105
Height = 27
Hint = '|Take a single step forward in the Path ahead'
Caption = '&Step'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 7
ParentFont = False
TabOrder = 6
OnClick = StepBtnClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300333003333
33333F8333F83333333330033300333333333FF333FF33333333333333333333
333333333333333333330000300003333333F8883F8883333333000030000333
3333F3383F33833333330000300003333333F3383F3383333333300333003333
33333FF333FF3333333333333333333333333333333333333333333333330033
300333333333F8333F83333333330033300333333333FF333FF3333333333333
3333333333333333333333333330000300003333333F8883F888333333300003
00003333333F3383F33833333330000300003333333F3383F338333333330033
300333333333FF333FF333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object StartBtn: TBitBtn
Left = 316
Top = 214
Width = 119
Height = 27
Hint = '|Mark current location and start recording a path'
Caption = 'Start &Recording'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 4
ParentFont = False
TabOrder = 11
OnClick = StartBtnClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333338888833
3333333333333333333333388999998833333333333333333333338999999999
833333333333333333333B9999999999983333333333333333333B9999999999
98333333333333333333B9999999999999833333333333333333B99999999999
99833333333333333333B9999999999999833333333333333333B99999999999
99833333333333333333B99999999999998333333333333333333B9999999999
983333333333333333333B99999999999833333333333333333333B999999999
83333333333333333333333BB99999883333333333333333333333333BBBBB33
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object BitBtn1: TBitBtn
Left = 440
Top = 182
Width = 105
Height = 27
Hint = '|Backup a single step in the Path behind'
Caption = '&Backup'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 3
ParentFont = False
TabOrder = 7
OnClick = BitBtn1Click
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300333003333
333338833388333333330000300003333333F3383F3383333333000030000333
3333F3383F33833333330000300003333333FFFF3FFFF3333333333333333333
3333333333333333333330033300333333333F8333F833333333300333003333
33333FF333FF3333333333333333333333333333333333333333333333330033
3003333333338833388333333330000300003333333F3383F338333333300003
00003333333F3383F33833333330000300003333333FFFF3FFFF333333333333
33333333333333333333333333330033300333333333F8333F83333333330033
300333333333FF333FF333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object StopBtn: TBitBtn
Left = 316
Top = 214
Width = 119
Height = 27
Hint = '|Stop record a path and save it'
Caption = 'Stop &Recording'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 4
ParentFont = False
TabOrder = 10
Visible = False
OnClick = StartBtnClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333333333333333333B888888888
8333333333333333333333B9999999998333333333333333333333B999999999
8333333333333333333333B9999999998333333333333333333333B999999999
8333333333333333333333B9999999998333333333333333333333B999999999
8333333333333333333333B9999999998333333333333333333333B999999999
8333333333333333333333B9999999998333333333333333333333BBBBBBBBBB
8333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object PBehind: TEdit
Left = 224
Top = 136
Width = 209
Height = 21
Hint = '|Directions behind you in the record buffer'
TabStop = False
AutoSize = False
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object BitBtn2: TBitBtn
Left = 440
Top = 214
Width = 105
Height = 27
Hint = '|Turn around. Swaps Path ahead with Path behind'
Caption = '&Turn around'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = BitBtn2Click
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F88888FFF333333999999999
3333333888333888FF3333999333339993333388333333888FF3399933333339
993338833333333388F3399333333333993338833333333338FF993333333333
399388F333333333388F993333333333399388F3333333333383993333333333
333388F3333333333333993333333333333388F33333333FFFFF993333333399
999388FF33333388888F3993333333399993383FF3333338888F399933333333
99933883FF33333F888F339993333399999333883FFFFF88888F333999999999
3393333888333888338333333999993333333333388888333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object ReverseBtn: TBitBtn
Left = 440
Top = 118
Width = 105
Height = 27
Hint = '|Reverse and Execute the current Path Ahead'
Caption = 'Re&verse'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 8
OnClick = ReverseBtnClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333300333330333333333333333333333333363333
3603333333333333333333333336333363333333333333333333330003336636
33333333333333333333333333333EC6333333333333333333330003333C366C
33333333333333333333333333E3C6C633333333333333333333333333333666
333333333333333333333300033333E333333333333333333333333333333EE0
33333333333333333333333333333E0033333333333333333333333333333000
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object StopWalk: TBitBtn
Left = 440
Top = 86
Width = 105
Height = 27
Hint = '|Stop the current slow walking'
Caption = 'STOP walk'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 6
ParentFont = False
TabOrder = 4
Visible = False
OnClick = StopWalkClick
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333338888833
3333333333FFFFF33333333399999983333333333333333F3333333999999998
3333333333333333F33333999999999983333333333333333F33399999999999
983333333333333333F3B999999999999983383333333333333FB99999999999
9983383333333333333FB999999999999983383333333333333FB99999999999
9983383333333333333FB999999999999983383333333333333F3B9999999999
9933338333333333333333B99999999993333338333333333333333B99999999
333333338333333333333333B99999933333333338333333333333333BBBBB33
3333333333888883333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
Margin = 4
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object PathName: TEdit
Left = 288
Top = 56
Width = 145
Height = 21
Hint = '|Name of path'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = PathNameChange
end
object PathList: TListBox
Left = 8
Top = 56
Width = 154
Height = 153
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 12
OnClick = PathListClick
OnDblClick = PathListDblClick
OnMouseDown = PathListMouseDown
end
object NewBtn: TBitBtn
Left = 8
Top = 214
Width = 62
Height = 27
Hint = '|Create a new path'
Caption = '&New'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
OnClick = NewBtnClick
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object CopyBtn: TBitBtn
Left = 72
Top = 214
Width = 62
Height = 27
Hint = '|Make a copy of the currently selected path'
Caption = '&Copy'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 14
OnClick = CopyBtnClick
Glyph.Data = {
56070000424D5607000000000000360400002800000028000000140000000100
0800000000002003000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
0303030303030303030000000000000000000003030303030303030303F8F8F8
F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
0303030300FF070707070707FF0003030303030303030303F8FF030303030303
03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DelBtn: TBitBtn
Left = 136
Top = 214
Width = 27
Height = 27
Hint = 'Delete path'
TabOrder = 15
OnClick = DelBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Settings'
object Label7: TLabel
Left = 40
Top = 16
Width = 212
Height = 13
Caption = 'This character is used to prefix speedwalking'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Sample: TLabel
Left = 40
Top = 30
Width = 64
Height = 13
Caption = 'e.g. .3ns2wu'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 288
Top = 8
Width = 126
Height = 13
Caption = 'Slow Walking settings'
end
object Bevel1: TBevel
Left = 416
Top = 15
Width = 121
Height = 9
Shape = bsTopLine
end
object Label74: TLabel
Left = 288
Top = 50
Width = 144
Height = 13
Caption = 'Timeout value (1000 = 1 sec) :'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label73: TLabel
Left = 288
Top = 78
Width = 195
Height = 13
Caption = 'Strings to determine successful slow walk'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object MoveChar: TEdit
Left = 6
Top = 20
Width = 25
Height = 21
Hint = '|Character to enter to prefix speedwalking paths'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier'
Font.Style = []
MaxLength = 1
ParentFont = False
TabOrder = 0
OnChange = MoveCharChange
end
object SlowTimeout: TCheckBox
Left = 286
Top = 32
Width = 121
Height = 17
Hint =
'|If checked, timeout stops walk, otherwise timeout continues slo' +
'w walk'
Alignment = taLeftJustify
Caption = 'Timeout aborts walk'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object SlowTime: TEdit
Left = 440
Top = 48
Width = 57
Height = 21
Hint = '|Value of slow walk timer'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object SlowList: TStringGrid
Left = 288
Top = 96
Width = 209
Height = 137
Hint = '|Strings used to continue slow walk'
ColCount = 1
DefaultRowHeight = 17
FixedCols = 0
RowCount = 32
FixedRows = 0
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [goEditing]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 3
ColWidths = (
256)
end
end
object TTabPage
Left = 4
Top = 24
Caption = 'Directions'
object Label9: TLabel
Left = 8
Top = 8
Width = 103
Height = 13
Caption = 'Stored Directions:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 8
Top = 24
Width = 122
Height = 13
Caption = 'Click on a direction to edit'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image2: TImage
Left = 184
Top = 8
Width = 32
Height = 32
AutoSize = True
end
object Bevel3: TBevel
Left = 168
Top = 8
Width = 9
Height = 230
Shape = bsLeftLine
end
object Label11: TLabel
Left = 224
Top = 16
Width = 222
Height = 13
Caption = 'Directions assign MUD commands to the single'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 224
Top = 30
Width = 182
Height = 13
Caption = 'character codes used in speedwalking'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 224
Top = 54
Width = 214
Height = 13
Caption = 'Each direction needs a single character code'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 240
Top = 68
Width = 198
Height = 13
Caption = 'along with a code for the reverse direction'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 240
Top = 84
Width = 215
Height = 13
Caption = 'and a list of MUD commands used to activate'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 240
Top = 98
Width = 184
Height = 13
Caption = 'the direction seperated by a | character'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object AliasText: TLabel
Left = 193
Top = 130
Width = 72
Height = 13
Caption = 'Direction code:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComText: TLabel
Left = 193
Top = 178
Width = 55
Height = 13
Caption = 'Commands:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 193
Top = 154
Width = 70
Height = 13
Caption = 'Reverse code:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object InhDir: TLabel
Left = 272
Top = 224
Width = 188
Height = 13
Caption = 'Inherited from parent settings file'
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label18: TLabel
Left = 193
Top = 202
Width = 67
Height = 13
Caption = 'Map direction:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DirList: TListBox
Left = 8
Top = 40
Width = 154
Height = 169
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 0
OnClick = DirListClick
OnMouseDown = DirListMouseDown
end
object NewDirBtn: TBitBtn
Left = 8
Top = 214
Width = 62
Height = 27
Hint = '|Create a new direction code'
Caption = '&New'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = NewDirBtnClick
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DirChar: TEdit
Left = 272
Top = 128
Width = 25
Height = 21
Hint = '|Single character code to assign command to'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 1
ParentFont = False
TabOrder = 1
OnChange = DirCharChange
end
object DirStr: TEdit
Left = 272
Top = 176
Width = 169
Height = 21
Hint = '|Commands separated by bar(|) to assign to direction code'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnChange = RevCharChange
end
object RevChar: TEdit
Left = 272
Top = 152
Width = 25
Height = 21
Hint = '|Direction code to use when reversing a direction'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 1
ParentFont = False
TabOrder = 2
OnChange = RevCharChange
end
object CopyDirBtn: TBitBtn
Left = 72
Top = 214
Width = 62
Height = 27
Hint = '|Make a copy of the currently selected direction code'
Caption = '&Copy'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = CopyDirBtnClick
Glyph.Data = {
56070000424D5607000000000000360400002800000028000000140000000100
0800000000002003000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
0303030303030303030000000000000000000003030303030303030303F8F8F8
F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
0303030300FF070707070707FF0003030303030303030303F8FF030303030303
03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DelDirBtn: TBitBtn
Left = 136
Top = 214
Width = 27
Height = 27
Hint = 'Delete direction code'
TabOrder = 6
OnClick = DelDirBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object MapDir: TComboBox
Left = 272
Top = 200
Width = 169
Height = 21
Hint =
'|Physical direction to move in the automapper (None for no direc' +
'tion)'
DropDownCount = 11
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'North'
'Northeast'
'East'
'Southeast'
'South'
'Southwest'
'West'
'Northwest'
'Up'
'Down'
'None')
ParentFont = False
TabOrder = 7
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 564
Height = 22
Align = alTop
BevelOuter = bvNone
Caption = 'Panel1'
TabOrder = 1
object Panel2: TPanel
Left = 0
Top = 0
Width = 46
Height = 22
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object TopBtn: TSpeedButton
Left = 0
Top = 0
Width = 22
Height = 22
Hint = 'Keep on top|Forces this dialog to display on top of others'
AllowAllUp = True
GroupIndex = 1
NumGlyphs = 2
OnClick = TopBtnClick
end
object LoadBtn: TSpeedButton
Left = 22
Top = 0
Width = 22
Height = 22
Hint = 'Update for active MUD|Loads paths for current character window'
NumGlyphs = 2
OnClick = LoadBtnClick
end
end
object Panel3: TPanel
Left = 46
Top = 0
Width = 518
Height = 22
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object BtnPanel5: TBtnPanel
Left = 1
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Aliases'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = AliasBtnClick
end
object VarBtn: TBtnPanel
Left = 65
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Variables'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = VarBtnClick
end
object MacroBtn: TBtnPanel
Left = 129
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Macros'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = MacroBtnClick
end
object ButBtn: TBtnPanel
Left = 193
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Buttons'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = ButBtnClick
end
object TrigBtn: TBtnPanel
Left = 257
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Triggers'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = TrigBtnClick
end
object WalkBtn: TBtnPanel
Left = 321
Top = 1
Width = 88
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Speedwalking'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = WalkBtnClick
end
end
end
object OKBtn: TBitBtn
Left = 320
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = OKBtnClick
Kind = bkOK
Margin = 4
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 402
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = CancelBtnClick
Kind = bkCancel
Margin = 4
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 484
Top = 300
Width = 77
Height = 27
HelpContext = 130
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = ReverseBtnClick
Kind = bkHelp
Margin = 4
Spacing = -1
IsControl = True
end
object HelpPanel: TPanel
Left = 0
Top = 333
Width = 564
Height = 20
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object PopupMenu1: TPopupMenu
Left = 8
Top = 304
object FastWalk1: TMenuItem
Caption = 'Fast Walk'
ShortCut = 0
OnClick = PathListDblClick
end
object Reverse1: TMenuItem
Caption = 'Reverse'
ShortCut = 0
OnClick = ReverseBtnClick
end
object SlowWalk1: TMenuItem
Caption = 'Slow Walk'
ShortCut = 0
OnClick = SlowBtnClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object New1: TMenuItem
Caption = 'New'
ShortCut = 0
OnClick = NewBtnClick
end
object Copy1: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = CopyBtnClick
end
object Delete1: TMenuItem
Caption = 'Delete'
ShortCut = 0
OnClick = DelBtnClick
end
end
object PopupMenu2: TPopupMenu
Left = 40
Top = 304
object MenuItem3: TMenuItem
Caption = 'New'
ShortCut = 0
OnClick = NewDirBtnClick
end
object MenuItem4: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = CopyDirBtnClick
end
object MenuItem5: TMenuItem
Caption = 'Delete'
ShortCut = 0
OnClick = DelDirBtnClick
end
end
end